home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / star trek.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  20KB  |  503 lines
  1. 3 REM"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201  ALEXANDRA, NEW ZEALAND[141]
  2. 10 [151]53280,0:[151]53281,0
  3. 15 QK[178]198
  4. 25 [153][199](142)
  5. 30 [153]"LOAD";[163]12);"(null)(null)(null)VAL(null)WAIT (null)(null)ATN(null)WAIT (null)(null)VAL(null)"
  6. 205 [153]"CONTLOADNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"[166]12)"(null)TANRIGHT$
  7. 210 PRINT"     NCC-1701   [146]           [169]   [223][146]      "
  8. 215 PRINT"  [162][162][162][162][162][162][162][162]   [162][162][162][146]  [223]  [209]   [209][209] [209][209][209] [209][209]  [209] [146][169]
  9. 220 [153][166]10)"   "[166]11)"STEP WAITSTEP(null)   WAITSTEP
  10. 225 PRINTSPC(10)"   "SPC(10)"[169] [146][169]
  11. 230 [153][166]10)"   "[166]9)"STEP WAITSTEP
  12. 235 PRINTSPC(10)"   "SPC(8)"[169] [146][169]
  13. 240 [153][166]10)"   WAITNEWNEWNEWNEWNEWNEWNEW  WAITSTEP
  14. 245 PRINT"    [223]                   [223]
  15. 250 [153]"      (null)         NCC-1701 WAIT(
  16. 255 PRINTSPC(9)"[223]              [146][169]
  17. 256 [141]10050
  18. 260 [156]:[153]"ONE MOMENT PLEASE.";
  19. 270 Z$[178]"                         "
  20. 330 [134]G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)
  21. 340 C1[178][187]([171]TI[172]10E9)
  22. 370 T[178][181]([187](1)[172]20[170]20)[172]100:T0[178]T:D0[178]0:E[178]3000:E0[178]E
  23. 440 P[178]10:P0[178]P:S9[178]200:S[178]0:B9[178]0:K9[178]0:X$[178]"":X0$[178]" IS"
  24. 470 [150][165]D(D)[178][186]((K(I,1)[171]S1)[174]2[170](K(I,2)[171]S2)[174]2)
  25. 475 [150][165]R(R)[178][181]([187](R)[172]8[170]1)
  26. 480 [143] INITIALIZE SHIP POSITION
  27. 490 Q1[178][165]R(1):Q2[178][165]R(1):S1[178][165]R(1):S2[178][165]R(1)
  28. 530 [129]I[178]1[164]9:C(I,1)[178]0:C(I,2)[178]0:[130]I
  29. 540 C(3,1)[178][171]1:C(2,1)[178][171]1:C(4,1)[178][171]1:C(4,2)[178][171]1:C(5,2)[178][171]1:C(6,2)[178][171]1
  30. 600 C(1,2)[178]1:C(2,2)[178]1:C(6,1)[178]1:C(7,1)[178]1:C(8,1)[178]1:C(8,2)[178]1:C(9,2)[178]1
  31. 670 [129]I[178]1[164]8:D(I)[178]0:[130]I
  32. 710 A1$[178]"NAVSRSLRSPHATORSHEDAMCOMXXX"
  33. 810 [143] SET UP GALAXY
  34. 815 [143] K3=#KLINGONS B3=#STARBASES S3=#STARS
  35. 820 [129]I[178]1[164]8:[129]J[178]1[164]8:K3[178]0:Z(I,J)[178]0:R1[178][187](1)
  36. 850 [139]R1[177].92[167]K3[178]3:K9[178]K9[170]3:[137]980
  37. 860 [139]R1[177].87[167]K3[178]2:K9[178]K9[170]2:[137]980
  38. 870 [139]R1[177].80[167]K3[178]1:K9[178]K9[170]1
  39. 980 B3[178]0:[139][187](1)[177].96[167]B3[178]1:B9[178]B9[170]1
  40. 1040 G(I,J)[178]K3[172]100[170]B3[172]10[170][165]R(1):[130]J,I:T9[178][181](17.6[170]K9[173]2[171]B9):[139]T9[179]25[167]T9[178]25
  41. 1050 [139]K9[179]20[167][153]".";:[156]:[137]270
  42. 1100 [139]B9[179][177]0[167]1200
  43. 1150 [139]G(Q1,Q2)[179]200[167]G(Q1,Q2)[178]G(Q1,Q2)[170]100:K9[178]K9[170]1
  44. 1160 B9[178]1:G(Q1,Q2)[178]G(Q1,Q2)[170]10:Q1[178][165]R(1):Q2[178][165]R(1)
  45. 1200 K7[178]K9:[139]B9[179][177]1[167]X$[178]"S":X0$[178]" ARE"
  46. 1210 [153]"LOAD"
  47. 1230 [153]"CONT(null)(null)(null)(null) (null)(null)STR$VAL(null)(null) ATN(null)VAL ATN(null) ASC(null)(null)(null)(null)(null)(null):"
  48. 1240 [153]"SYSSTR$ESTROYCLOSETHE";K9;"(null)LINGON WARSHIPSCLOSEWHICH   HAVECLOSEINVADED";
  49. 1250 [153]" THECLOSEGALAXYCLOSEBEFORECLOSETHEYCLOSECANCLOSEATTACKCLOSEASCEDERATIONCLOSELEFT$EADQUARTERS ON:"
  50. 1260 [153]"(null)(null)ATN(null)STR$ATN(null)VAL";T0[170]T9;"CMD.  (null)HISCLOSEGIVESCLOSEYOU";T9;"DAYS.":[153]"DEF(null)HERE";X0$;
  51. 1270 [153]B9;"(null)TARBASE";X$;" INCLOSETHECLOSEGALAXYCLOSEFOR   RE-SUPPLYING YOURCLOSESHIP."
  52. 1280 [153]"CONTLEFT$RIGHT$(null)THEN(null)WAITCMDONTOFN(null)LEFT$VAL(null) (null)(null)(null) ATN(null)VAL (null)VALATNSTR$(null) (null)(null) (null)ATN(null)VAL LEN(null)(null)(null)ATN(null)STR$"
  53. 1300 [161]ZZ$:[139]ZZ$[179][177]"R"[167]1300
  54. 1310 [143] HERE ANY TIME WHEN ENTERING NEW QUADRANT
  55. 1320 Z4[178]Q1:Z5[178]Q2:K3[178]0:B3[178]0:S3[178]0:G5[178]0:D4[178].5[172][187](1):Z(Q1,Q2)[178]G(Q1,Q2)
  56. 1390 [139]Q1[179]1[176]Q1[177]8[176]Q2[179]1[176]Q2[177]8[167]1600
  57. 1430 [141]9030:[153]:[139]T0[179][177]T[167]1490
  58. 1460 [153]"LOADPRINT#(null)ISSIONCLOSEBEGINSCLOSEWITHCLOSESTARSHIPCLOSELOCATED IN"
  59. 1470 [153]"THECLOSEGALACTICCLOSEQUADRANT ";G2$;"PRINT#.":[137]1500
  60. 1490 [153]"PRINT#(null)OWCLOSEENTERING ";G2$;" QUADRANT..."
  61. 1500 [153]:K3[178][181](G(Q1,Q2)[172].01):B3[178][181](G(Q1,Q2)[172].1)[171]10[172]K3
  62. 1540 S3[178]G(Q1,Q2)[171]100[172]K3[171]10[172]B3:[139]K3[178]0[167]1590
  63. 1560 [153]"DEF  (null)(null)RIGHT$(null)CHR$(null)(null) LEN(null)(null)RIGHT$(null)VAL(null)      LEN(null)(null)STR$RIGHT$(null)RIGHT$(null)(null) (null)VALSTR$CONT":[139]S[177]200[167]1581
  64. 1580 [153]"      (null)LEFT$RIGHT$VAL(null)STR$(null) STR$ATN(null)CHR$VAL(null)(null)(null)(null)(null)(null) (null)(null)(null)"
  65. 1581 [129]I[178]1[164]300:[151]53265,11:[151]53265,27:[130]:[153]"LOAD
  66. 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI
  67. 1600 FORI=1TO3:K(I,3)=0:NEXTI:Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+LEFT$(Z$,17)
  68. 1660 REM POSITION ENTERPRISE IN QUADRANT,THEN PLACE KLINGONS,STARBASES & STARS
  69. 1680 A$="<*>":Z1=S1:Z2=S2:GOSUB8670:IFK3<1THEN1820
  70. 1720 FORI=1TOK3:GOSUB8590:A$="+[203]+":Z1=R1:Z2=R2
  71. 1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5+RND(1)):NEXTI
  72. 1820 IFB3<1THEN1910
  73. 1880 GOSUB8590:A$=">!<":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
  74. 1910 FORI=1TOS3:GOSUB8590:A$=" * ":Z1=R1:Z2=R2:GOSUB8670:NEXTI
  75. 1980 GOSUB6430
  76. 1990 IFS+E>10THENIFE>10ORD(7)=0THEN2060
  77. 2020 PRINT"[156]                                        ";
  78. 2021 PRINT"<< [198][193][212][193][204] [197][210][210][207][210] >>  [217]OU'VE JUST[160]STRANDED  ";
  79. 2030 PRINT"THE [197]NTERPRISE IN SPACE.  [217]OU HAVE      INSUFFICIENT ENERGY TO ";
  80. 2040 PRINT"MANOEUVER.       [211]HIELD [195]ONTROL IS PRESENTLY INCAPABLE   OF ";
  81. 2050 PRINT"CROSS-CIRCUITING[160]TO[160]THE [197]NGINE [210]OOM.";
  82. 2051 PRINT"                                        [154]":GOTO6220
  83. 2060 IFT>=T0+T9THEN6220
  84. 2061 INPUT"[195][207][205][205][193][206][196]";A$:PRINT"[154]"
  85. 2080 FORI=1TO9:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2160
  86. 2140 ONIGOTO2300,1980,4000,4260,4700,5530,5690,7290,6270
  87. 2160 NEXTI:PRINT"[150][197][206][212][197][210] [207][206][197] [207][198] [212][200][197] [198][207][204][204][207][215][201][206][199]:"
  88. 2180 PRINT" [150]NAV[154]--[212]O[160]SET[160]COURSE"
  89. 2190 PRINT" [150]SRS[154]--[198]OR[160]SHORT-RANGE[160]SENSOR SCAN"
  90. 2200 PRINT" [150]LRS[154]--[198]OR[160]LONG-RANGE[160]SENSOR SCAN"
  91. 2210 PRINT" [150]PHA[154]--[212]O[160]FIRE[160]PHASERS"
  92. 2220 PRINT" [150]TOR[154]--[212]O[160]FIRE[160]PHOTON[160]TORPEDOES"
  93. 2230 PRINT" [150]SHE[154]--[212]O[160]RAISE[160]OR[160]LOWER[160]SHIELDS"
  94. 2240 PRINT" [150]DAM[154]--[198]OR[160]DAMAGE[160]CONTROL[160]REPORTS"
  95. 2250 PRINT" [150]COM[154]--[212]O[160]CALL[160]LIBRARY-COMPUTER"
  96. 2260 PRINT" [150]XXX[154]--[212]O[160]RESIGN[160]YOUR[160]COMMAND":GOTO1990
  97. 2290 REM COURSE CONTROL STARTS HERE
  98. 2300 INPUT"[195]OURSE (1-9)";C1:IFC1=9THENC1=1
  99. 2310 IFC1>=1ANDC1<9THEN2350
  100. 2330 PRINT"[129] [204]T. [211]ULU[160]REPORTS:":PRINT" [201]NCORRECT[160]COURSE[160]DATA, [211]IR!":GOTO1990
  101. 2350 X$="8":IFD(1)<0THENX$="0.2"
  102. 2360 PRINT"[215]ARP[160][198]ACTOR (0-";X$;")";:INPUTW1:PRINT:IFD(1)<0ANDW1>.2THEN2470
  103. 2380 IFW1>0ANDW1<=8THEN2490
  104. 2390 IFW1=0THEN1990
  105. 2420 PRINT"[129] [195]HIEF[160][197]NGINEER [211]COTT REPORTS:":PRINT" [212]HE ENGINES WON'T TAKE [215]ARP";
  106. 2430 PRINTW1;"!":GOTO1990
  107. 2470 PRINT"[150][215]ARP[160]ENGINES[160]ARE[160]DAMAGED.  [205]AXIMUM[160]SPEED = [215]ARP 0.2":GOTO1990
  108. 2490 N=INT(W1*8+.5):IFE-N>=0THEN2590
  109. 2500 PRINT"[129] [197]NGINEERING[160]REPORTS:[146] [201]NSUFFICIENT[160]POWERAVAILABLE";
  110. 2510 PRINT" FOR[160]MANOEUVERING[160]AT[160][215]ARP";W1;"!"
  111. 2530 IFS<N-EORD(7)<0THEN1990
  112. 2550 PRINT"[154][196]EFLECTOR[160]CONTROL[160]ROOM[160]REPORTS";S:PRINT"UNITS[160]OF[160]ENERGY ";
  113. 2560 PRINT"PRESENTLY[160]DEPLOYED[160]TO":PRINT"SHIELDS.":GOTO1990
  114. 2580 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP . . .
  115. 2590 FORI=1TOK3:IFK(I,3)=0THEN2700
  116. 2610 A$="   ":Z1=K(I,1):Z2=K(I,2):GOSUB8670:GOSUB8590
  117. 2660 K(I,1)=Z1:K(I,2)=Z2:A$="+[203]+":GOSUB8670
  118. 2700 NEXTI:GOSUB6000:D1=0:D6=W1:IFW1>=1THEND6=1
  119. 2770 FORI=1TO8:IFD(I)>=0THEN2880
  120. 2790 D(I)=D(I)+D6:IFD(I)>-.1ANDD(I)<0THEND(I)=-.1:GOTO2880
  121. 2800 IFD(I)<0THEN2880
  122. 2810 IFD1<>1THEND1=1:PRINT"[153][192][192][192][192][192][192][192][192][196][193][205][193][199][197] [195][207][206][212][210][207][204] [210][197][208][207][210][212][192][192][192][192][192][192][192][192][192][192][152]"
  123. 2840 R1=I:GOSUB8790:PRINTG2$;" REPAIR[160]COMPLETED."
  124. 2850 PRINT"[153][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][152]"
  125. 2880 NEXTI:IFRND(1)>.2THEN3070
  126. 2910 R1=FNR(1):IFRND(1)>=.6THEN3000
  127. 2930 D(R1)=D(R1)-(RND(1)*5+1):PRINT"[153][192][192][192][192][192][192][192][192][196][193][205][193][199][197] [195][207][206][212][210][207][204] [210][197][208][207][210][212][192][192][192][192][192][192][192][192][192][192][152]"
  128. 2960 GOSUB8790:PRINTG2$;" DAMAGED.":GOTO3040
  129. 3000 D(R1)=D(R1)+RND(1)*3+1:PRINT"[153][192][192][192][192][192][192][192][192][196][193][205][193][199][197] [195][207][206][212][210][207][204] [210][197][208][207][210][212][192][192][192][192][192][192][192][192][192][192][152]"
  130. 3030 GOSUB8790:PRINTG2$;" ON HALF POWER."
  131. 3040 PRINT"[153][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][152]"
  132. 3060 REM BEGIN MOVING STARSHIP
  133. 3070 A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB8670
  134. 3110 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):X=S1:Y=S2
  135. 3140 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):Q4=Q1:Q5=Q2
  136. 3170 FORI=1TON:S1=S1+X1:S2=S2+X2:IFS1<1ORS1>=9ORS2<1ORS2>=9THEN3500
  137. 3240 S8=INT(S1)*24+INT(S2)*3-26:IFMID$(Q$,S8,2)="  "THEN3360
  138. 3320 S1=INT(S1-X1):S2=INT(S2-X2):PRINT"[150][215]ARP[160]ENGINES[160]SHUT[160]DOWN[160]AT ";
  139. 3350 PRINT"SECTOR";S1;",";S2:PRINT"DUE[160]TO[160]BAD[160]NAVIGATION.":GOTO3370
  140. 3360 NEXTI:S1=INT(S1):S2=INT(S2)
  141. 3370 A$="<*>":Z1=INT(S1):Z2=INT(S2):GOSUB8670:GOSUB3910:T8=1
  142. 3430 IFW1<1THENT8=.1*INT(10*W1)
  143. 3450 T=T+T8:IFT>T0+T9THEN6220
  144. 3470 REM SEE IF DOCKED, THEN GET COMMAND
  145. 3480 GOTO1980
  146. 3490 REM EXCEEDED QUADRANT LIMITS
  147. 3500 X=8*Q1+X+N*X1:Y=8*Q2+Y+N*X2:Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8)
  148. 3550 S2=INT(Y-Q2*8):IFS1=0THENQ1=Q1-1:S1=8
  149. 3590 IFS2=0THENQ2=Q2-1:S2=8
  150. 3620 X5=0:IFQ1<1THENX5=1:Q1=1:S1=1
  151. 3670 IFQ1>8THENX5=1:Q1=8:S1=8
  152. 3710 IFQ2<1THENX5=1:Q2=1:S2=1
  153. 3750 IFQ2>8THENX5=1:Q2=8:S2=8
  154. 3790 IFX5=0THEN3860
  155. 3800 PRINT"[129] [204]T. [213]HURU[160]HAS A[160]MESSAGE[160]FROM[160][211]TARFLEET  [195]OMMAND:[146] ";
  156. 3810 PRINT"[208]ERMISSION[160]TO[160]ATTEMPT[160]CROSSINGOF[160]GALACTIC[160]PERIMETER ";
  157. 3820 PRINT"IS[160]HEREBY [196][197][206][201][197][196][129]. [211]HUT[160]DOWN[160]YOUR[160]ENGINES.":FORI=1TO6000:NEXT
  158. 3830 PRINT"[150] [195]HIEF [197]NGINEER[160][211]COTT[160]REPORTS:":PRINT"[215]ARP[160]ENGINES SHUT[160]DOWN AT ";
  159. 3840 PRINT"[211]ECTOR"S1;",";S2:PRINT"OF[160][209]UADRANT";Q1;",";Q2".":FORI=1TO6000:NEXT
  160. 3850 IFT>T0+T9THEN6220
  161. 3860 IF8*Q1+Q2=8*Q4+Q5THEN3370
  162. 3870 T=T+1:GOSUB3910:GOTO1320
  163. 3900 REM MANOEUVER ENERGY SBR**
  164. 3910 E=E-N-10:IFE>=0THENRETURN
  165. 3930 PRINT"[150][211]HIELD[160]CONTROL[160]SUPPLIES[160]ENERGY[160]TO[160]      COMPLETE[160]THE[160]MANOEUVER."
  166. 3940 S=S+E:E=0:IFS<=0THENS=0
  167. 3980 RETURN
  168. 3990 REM LONG-RANGE SENSOR SCAN CODE
  169. 4000 IFD(3)<0THENPRINT"[204]ONG-[210]ANGE[160][211]ENSORS[160]ARE[160]INOPERABLE.":GOTO1990
  170. 4030 PRINT"[204][207][206][199]-[210][193][206][199][197] [211][195][193][206] [198][207][210] [209][213][193][196][210][193][206][212] ";Q1;",";Q2
  171. 4040 O1$="[150]-------------------":PRINTO1$
  172. 4060 FORI=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ2+1
  173. 4120 IFI>0ANDI<9ANDJ>0ANDJ<9THENN(J-Q2+2)=G(I,J):Z(I,J)=G(I,J)
  174. 4180 NEXTJ:FORL=1TO3:PRINT": ";:IFN(L)<0THENPRINT"[152]*** [150]";:GOTO4230
  175. 4210 PRINTRIGHT$(STR$(N(L)+1000),3);" ";
  176. 4230 NEXTL:PRINT":":PRINTO1$:NEXTI:GOTO1990
  177. 4250 REM PHASER CONTROL CODE BEGINS HERE
  178. 4260 IFD(4)<0THENPRINT"[208]HASERS[160]INOPERATIVE.":GOTO1990
  179. 4265 IFK3>0THEN4330
  180. 4270 PRINT"[129] [211]CIENCE[160][207]FFICER [211]POCK REPORTS:[146] [211]ENSORS[160] SHOW[160]NO[160]ENEMY[160]SHIPS ";
  181. 4280 PRINT"IN[160]THIS[160]QUADRANT.":GOTO1990
  182. 4330 IFD(8)<0THENPRINT"[150][195]OMPUTER[160]FAILURE[160]HAMPERS[160]ACCURACY.[154]"
  183. 4350 PRINT"[208]HASERS[160]LOCKED[160]ON[160]TARGET."
  184. 4360 PRINT"[197]NERGY[160]AVAILABLE =";E;"UNITS."
  185. 4370 INPUT"[206]UMBER[160]OF[160]UNITS[160]TO[160]FIRE";X:IFX<=0THEN1990
  186. 4400 IFE-X<0THEN4360
  187. 4410 E=E-X:IFD(7)<0THENX=X*RND(1)
  188. 4450 H1=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THEN4670
  189. 4480 H=INT((H1/FND(0))*(RND(1)+2)):IFH>.15*K(I,3)THEN4530
  190. 4500 PRINT"[150][211]ENSORS[160]SHOW[160]NO[160]DAMAGE[160]TO[160]ENEMY":PRINT"AT"K(I,1)","K(I,2):GOTO4669
  191. 4530 K(I,3)=K(I,3)-H:PRINT"[152]"H;"UNIT HIT[160]ON [203]LINGON AT";K(I,1);",";
  192. 4550 PRINTK(I,2):IFK(I,3)<=0THENPRINT"[158]*** [203]LINGON[160]DESTROYED ***":GOTO4580
  193. 4560 PRINT"[154][211]ENSORS SHOW";INT(K(I,3));"UNITS REMAINING.":GOTO4669
  194. 4580 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":GOSUB8670
  195. 4650 K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):IFK9<=0THEN6370
  196. 4669 FORJ=1TO3000:NEXT
  197. 4670 NEXTI:GOSUB6000:GOTO1990
  198. 4690 REM PHOTON TORPEDO CODE BEGINS HERE
  199. 4700 IFP<=0THENPRINT"[193]LL PHOTON[160]TORPEDOES[160]EXPENDED.":GOTO1990
  200. 4730 IFD(5)<0THENPRINT"[208]HOTON[160]TUBES[160]ARE[160]NOT[160]OPERATIONAL.":GOTO1990
  201. 4770 PRINT"[212]ORPEDO[160][195]OURSE (1-9)";
  202. 4775 INPUTC1:IFC1=9THENC1=1
  203. 4785 IF(C1>=1)AND(C1<9)THEN4850
  204. 4790 PRINT"[129] [197]NSIGN[160][195]HEKHOV[160]REPORTS:":PRINT" [201]NCORRECT[160]COURSE DATA, [211]IR!"
  205. 4800 GOTO1990
  206. 4850 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):E=E-2:P=P-1
  207. 4860 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
  208. 4910 PRINT"[150][212]ORPEDO[160][212]RACK:"
  209. 4920 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
  210. 4960 IFX3<1ORX3>8ORY3<1ORY3>8THEN5490
  211. 5000 PRINT"              ";X3;",";Y3:A$="   ":Z1=X:Z2=Y:GOSUB8830
  212. 5050 IFZ3<>0THEN4920
  213. 5060 A$="+[203]+":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5210
  214. 5110 PRINT"[158]*** [203]LINGON[160]DESTROYED ***":K3=K3-1:K9=K9-1:IFK9<=0THEN6370
  215. 5150 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THEN5190
  216. 5180 NEXTI:I=3
  217. 5190 K(I,3)=0:GOTO5430
  218. 5210 A$=" * ":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5280
  219. 5260 PRINT"[154][211]TAR[160]AT";X3;",";Y3;"ABSORBED[160]TORPEDO.":GOSUB6000:GOTO1990
  220. 5280 A$=">!<":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN4770
  221. 5330 PRINT"[158]*** [211]TARBASE[160]DESTROYED ***[154]":B3=B3-1:B9=B9-1
  222. 5360 IFB9>0ORK9>T-T0-T9THEN5400
  223. 5370 PRINT"[212]HAT[160]DOES[160]IT, [195]APTAIN!!  [217]OU[160]ARE[160]HEREBY[160]RELIEVED[160]OF[160]COMMAND ";
  224. 5380 PRINT"AND SENTENCED[160]TO 99 [211]TARDATES[160]AT[160]HARD[160]LABOR[160]ON [195]YGNUS 12!!  [152]"
  225. 5390 GOTO6270
  226. 5400 PRINT"[211]TARFLEET [195]OMMAND[160]REVIEWING[160]YOUR[160]RECORD[160]TO[160]CONSIDER ";
  227. 5410 PRINT"COURT[160]MARTIAL!":D0=0
  228. 5430 Z1=X:Z2=Y:A$="   ":GOSUB8670
  229. 5470 G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):GOSUB6000:GOTO1990
  230. 5490 PRINT"[212]ORPEDO[160]MISSED.":GOSUB6000:GOTO1990
  231. 5520 REM SHIELD CONTROL
  232. 5530 IFD(7)<0THENPRINT"[211]HIELD[160]CONTROL[160]INOPERABLE.":GOTO1990
  233. 5560 PRINT"[197]NERGY[160]AVAILABLE =";E+S:INPUT"[206]UMBER[160]OF[160]UNITS[160]TO[160]SHIELDS";X
  234. 5580 IFX<0ORS=XTHENPRINT"[150]<[211]HIELDS[160]UNCHANGED>":GOTO1990
  235. 5590 IFX<=E+STHEN5630
  236. 5600 PRINT"[129] [211]HIELD[160][195]ONTROL[160]REPORTS:[146] [212]HIS[160]IS[160]NOT[160]THE [198]EDERATION [212]REASURY!"
  237. 5610 PRINT"[155]<[211]HIELDS[160]UNCHANGED>":GOTO1990
  238. 5630 E=E+S-X:S=X:PRINT"[129] [196]EFLECTOR[160][195]ONTROL[160][210]OOM[160]REPORTS:[146]"
  239. 5660 PRINT"[211]HIELDS[160]NOW[160]AT";INT(S);"[213]NITS.":GOTO1990
  240. 5680 REM DAMAGE CONTROL
  241. 5690 IFD(6)>=0THEN5910
  242. 5700 PRINT"[150][196]AMAGE[160][195]ONTROL[160]REPORT[160]NOT[160]AVAILABLE.":IFD0=0THEN1990
  243. 5720 D3=0:FORI=1TO8:IFD(I)<0THEND3=D3+.1
  244. 5760 NEXTI:IFD3=0THEN1990
  245. 5780 PRINT:D3=D3+D4:IFD3>=1THEND3=.9
  246. 5810 PRINT"[150][212]ECHNICIANS[160]STANDING[160]BY[160]TO[160]MAKE[160]REPAIRS TO[160]YOUR[160]SHIP.  ";
  247. 5820 PRINT"[197]STIMATED[160]TIME[160]TO[160]REPAIR WILL BE";.01*INT(100*D3);"[211]TARDATES."
  248. 5840 INPUT"[215]ILL[160]YOU[160]AUTHORIZE[160]THE[160]REPAIR (Y/N)";A$
  249. 5860 IFLEFT$(A$,1)<>"Y"THEN1990
  250. 5870 FORI=1TO8:IFD(I)<0THEND(I)=0
  251. 5890 NEXTI:T=T+D3+.1
  252. 5910 PRINT"[150][196][197][214][201][195][197]             [211][212][193][212][197] [207][198] [210][197][208][193][201][210][154]":FORR1=1TO8
  253. 5920 GOSUB8790:PRINTG2$;LEFT$(Z$,25-LEN(G2$));INT(D(R1)*100)*.01
  254. 5950 NEXTR1:PRINT:IFD0<>0THEN5720
  255. 5980 GOTO1990
  256. 5990 REM KLINGONS SHOOTING
  257. 6000 IFK3<=0THENRETURN
  258. 6010 IFD0<>0THENPRINT"[153][211]TARBASE[160]SHIELDS[160]PROTECT[160]THE [197]NTERPRISE.":RETURN
  259. 6040 FORI=1TO3:IFK(I,3)<=0THEN6200
  260. 6060 H=INT((K(I,3)/FND(0))*(2+RND(1))):S=S-H:K(I,3)=K(I,3)/(3+RND(1))
  261. 6080 PRINT"[152]"H"UNIT[160]HIT[160]ON[160]THE[160][197]NTERPRISE[160]FROM":PRINT"[211]ECTOR"K(I,1)","K(I,2)
  262. 6081 FORJ=1TO3000:NEXT
  263. 6090 IFS<=0THEN6240
  264. 6100 PRINT"[159]  <<< [211]HIELDS[160]DOWN[160]TO";S;"UNITS >>>[154]":IFH<20THEN6200
  265. 6120 IFRND(1)>.6ORH/S<=.02THEN6200
  266. 6140 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(1):GOSUB8790
  267. 6170 PRINT"[129] [196]AMAGE[160][195]ONTROL[160]REPORTS:[146] ":PRINTG2$;" DAMAGED[160]BY[160]THE[160]HIT."
  268. 6200 NEXTI:RETURN
  269. 6210 REM END OF GAME
  270. 6220 PRINT"[154][201]T[160]IS[160][211]TARDATE";T:GOTO6270
  271. 6240 PRINT"[150][212]HE[160][197]NTERPRISE[160]HAS[160]BEEN[160]DESTROYED.":PRINT"[212]HE[160][198]EDERATION ";
  272. 6250 PRINT"WILL[160]BE[160]CONQUERED.[154]":GOTO6220
  273. 6270 PRINT"[212]HERE[160]WERE";K9;"[203]LINGON[160][194]ATTLE[160][195]RUISERS"
  274. 6280 PRINT"LEFT[160]AT[160]THE[160]END[160]OF[160]YOUR[160]MISSION."
  275. 6290 IFB9=0THEN6360
  276. 6310 PRINT"[150][212]HE [198]EDERATION[160]IS[160]IN[160]NEED[160]OF[160]A[160]NEW[160][211]TAR-  SHIP[160][195]OMMANDER";
  277. 6320 PRINT" FOR[160]A[160]SIMILAR[160]MISSION. [201]F THERE[160]IS[160]A[160]VOLUNTEER, ";
  278. 6330 PRINT"LET[160]HIM[160]STEP[160]    FORWARD[160]AND[160]ENTER [155]AYE[150]."
  279. 6340 INPUTA$:IFLEFT$(A$,3)="AYE"THEN10
  280. 6360 PRINT"[212][200][193][206][203][211][160][198][207][210][160][212][200][197][160][199][193][205][197].[150]":END
  281. 6370 PRINT"[154][195]ONGRATULATIONS, [195]APTAIN!"
  282. 6375 PRINT"[150][212]HE[160]LAST[160][203]LINGON[160][194]ATTLE[160][195]RUISER ";
  283. 6380 PRINT"MENACINGTHE[160][198]EDERATION[160]HAS[160]BEEN[160]DESTROYED.
  284. 6400 [153]"PRINT#(null)OURCLOSEEFFICIENCYCLOSERATINGCLOSEIS"[181](1000[172](K7[173](T[171]T0))[174]2):[137]6290
  285. 6420 [143] SHORT-RANGE SENSOR SCAN & START-UP SBR
  286. 6430 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
  287. 6450 [139][181](I[170].5)[179]1[176][181](I[170].5)[177]8[176][181](J[170].5)[179]1[176][181](J[170].5)[177]8[167]6540
  288. 6490 A$[178]">!<":Z1[178]I:Z2[178]J:[141]8830:[139]Z3[178]1[167]6580
  289. 6540 [130]J,I:D0[178]0:[137]6650
  290. 6580 D0[178]1:C$[178]"STR$(null)LEN(null)VALSTR$":E[178]E0:P[178]P0
  291. 6620 [153]"SYS(null)HIELDSCLOSEDROPPEDCLOSEFORCLOSEDOCKINGCLOSEPURPOSES.":S[178]0:[137]6720
  292. 6650 [139]K3[177]0[167]C$[178]"DEF(null)VALSTR$":[137]6720
  293. 6660 C$[178]"PRINTCHR$(null)VALVAL(null)":[139]E[179]E0[172].1[167]C$[178]"SYS(null)VAL(null)(null)(null)(null)"
  294. 6720 [139]D(2)[177][178]0[167]6770
  295. 6730 [153]"DEF*** (null)HORT-(null)ANGECLOSE(null)ENSORS ARE OUT ***CONT":[142]
  296. 6770 O1$[178]"PRINT#--1---2---3---4---5---6---7---8--"
  297. 6780 [153]"CONT(null)TARDATE";[163]20);[181](T[172]10)[172].1:[153]"LENONDITION";[163]21);C$
  298. 6790 [153]"CONT(null)UADRANT";[163]20);Q1;",";Q2:[153]"(null)ECTOR";[163]20);S1;",";S2
  299. 6800 [153]"(null)HOTONCLOSE(null)ORPEDOES";[163]20);[181](P):[153]"(null)OTALCLOSEVALNERGY";[163]20);[181](E[170]S)
  300. 6810 [153]"(null)HIELDS";[163]20);[181](S):[153]"(null)LINGONS (null)EMAINING";[163]20);[181](K9)
  301. 6820 O1$[178]"PRINT#--1---2---3---4---5---6---7---8--":[153]"";O1$:[129]I[178]1[164]8
  302. 6830 [129]J[178](I[171]1)[172]24[170]1[164](I[171]1)[172]24[170]22[169]3:[153]" SYS";:A$[178][202](Q$,J,3)
  303. 6840 [139]A$[178]"<*>"[167][153]"CONT";
  304. 6850 [139]A$[178]"+(null)+"[167][153]"DEF";
  305. 6860 [139]A$[178]">!<"[167][153]"";
  306. 6999 [153]A$;:[130]J:[153]
  307. 7260 [130]I:[153]O1$:[142]
  308. 7280 [143] LIBRARY-COMPUTER CODE
  309. 7290 [139]D(8)[179]0[167][153]"LENOMPUTERCLOSEDISABLED":[137]1990
  310. 7320 [133]"COMPUTERCLOSEREADY...(null)VAL(null)VALLEN(null)CLOSE(null)(null)(null)RIGHT$(null)(null) (0-5)";A:[139]A[179]0[167]1990
  311. 7350 [153]:H8[178]1:[145]A[170]1[137]7540,7900,8070,8500,8150,7400
  312. 7360 [153]"DEFATN(null)ATNRIGHT$(null)ATNPEEK(null)VAL ASC(null)(null)(null) (null)RIGHT$PEEK(null)ATN(null)(null)-LEN(null)(null)(null)(null)(null)VAL(null):"
  313. 7370 [153]"   0 = LENUMULATIVECLOSECHR$ALACTIC (null)ECORD"
  314. 7372 [153]"   1 = (null)TATUS (null)EPORT"
  315. 7374 [153]"   2 = (null)ORPEDO (null)ANGE ASCINDER"
  316. 7376 [153]"   3 = (null)TARBASECLOSE(null)AVIGATIONCLOSESTR$ATA"
  317. 7378 [153]"   4 = STR$IRECTION/STR$ISTANCE LENALCULATOR"
  318. 7380 [153]"   5 = CHR$ALAXY '(null)EGION (null)AME' (null)APCONT":[137]7320
  319. 7390 [143] SET-UP TO CHANGE CUM GAL RECORD TO GALAXY MAP
  320. 7400 H8[178]0:G5[178]1:[153]"DEF               (null)LEFT$VAL CHR$ATN(null)ATN(null)(null)":[137]7550
  321. 7530 [143] CUMULATIVE GALACTIC RECORD
  322. 7540 [153]"DEF      CHR$CLOSEATNCLOSE(null)CLOSEATNCLOSE(null)CLOSE(null)CLOSECLOSECLOSECLOSECLOSECLOSE(null)CLOSEVALCLOSELENCLOSE(null)CLOSE(null)CLOSESTR$
  323. 7550 PRINT"[154]     1   2   3   4   5   6   7   8"
  324. 7560 O1$="[154]    --- --- --- --- --- --- --- ---"
  325. 7570 PRINTO1$:FORI=1TO8:PRINT"[154]"I"[150]";:IFH8=0THEN7740
  326. 7630 FORJ=1TO8:PRINT" ";:IFZ(I,J)=0THENPRINT"[152]***[150]";:GOTO7720
  327. 7700 PRINTRIGHT$(STR$(Z(I,J)+1000),3);
  328. 7720 NEXTJ:GOTO7850
  329. 7740 Z4=I:Z5=1:GOSUB9030:J0=INT(12-.5*LEN(G2$)):PRINTTAB(J0);G2$;
  330. 7800 Z5=5:GOSUB9030:J0=INT(28-.5*LEN(G2$)):PRINTTAB(J0);G2$;
  331. 7850 PRINT:PRINTO1$:NEXTI:GOTO1990
  332. 7890 REM STATUS REPORT
  333. 7900 PRINT"[150]   [211] [212] [193] [212] [213] [211]      [210] [197] [208] [207] [210] [212][154]":X$="":IFK9>1THENX$="S"
  334. 7940 PRINT"[203]LINGON";X$;" LEFT: ";K9
  335. 7960 PRINT"[205]ISSION[160]DEADLINE[160]IN";.1*INT((T0+T9-T)*10);"[211]TARDATES.  "
  336. 7970 X$="S":IFB9<2THENX$="":IFB9<1THEN8010
  337. 7980 PRINT"[212]HE [198]EDERATION HAS";B9;"[211]TARBASE";X$;"."
  338. 7990 GOTO5690
  339. 8010 PRINT"[158][217]OUR[160]STUPIDITY[160]HAS LEFT[160]YOU[160]ON[160]YOUR[160]OWN[160]IN";
  340. 8020 PRINT" THE[160]GALAXY--YOU[160]HAVE[160]NO[160][211]TARBASES    LEFT![154]":GOTO5690
  341. 8060 REM TORPEDO, BASE NAV, D/D CALCULATOR
  342. 8070 IFK3<=0THEN4270
  343. 8080 X$="":IFK3>1THENX$="S"
  344. 8090 PRINT"[210]ANGE TO[160][203]LINGON[160][194]ATTLE [195]RUISER";X$
  345. 8100 H8=0:FORI=1TO3:IFK(I,3)<=0THEN8480
  346. 8110 W1=K(I,1):X=K(I,2)
  347. 8120 C1=S1:A=S2:GOTO8220
  348. 8150 PRINT"[150][196][201][210][197][195][212][201][207][206]/[196][201][211][212][193][206][195][197] [195][193][204][195][213][204][193][212][207][210]:[154]"
  349. 8160 PRINT"[217]OU[160]ARE[160]AT[160][209]UADRANT";Q1;",";Q2;" [211]ECTOR ";S1;",";S2
  350. 8170 PRINT"[155][208]LEASE[160][197]NTER":INPUT"[154][201]NITIAL[160][195]O-ORDINATES ([216],[217]) ";C1,A
  351. 8200 INPUT"[198]INAL [195]O-ORDINATES ([216],[217]) ";W1,X
  352. 8220 X=X-A:A=C1-W1:IFX<0THEN8350
  353. 8250 IFA<0THEN8410
  354. 8260 IFX>0THEN8280
  355. 8270 IFA=0THENC1=5:GOTO8290
  356. 8280 C1=1
  357. 8290 IFABS(A)<=ABS(X)THEN8330
  358. 8310 PRINT"[150][196]IRECTION =";C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A)):GOTO8460
  359. 8330 PRINT"[150][196]IRECTION =";C1+(ABS(A)/ABS(X)):GOTO8460
  360. 8350 IFA>0THENC1=3:GOTO8420
  361. 8360 IFX<>0THENC1=5:GOTO8290
  362. 8410 C1=7
  363. 8420 IFABS(A)>=ABS(X)THEN8450
  364. 8430 PRINT"[150][196]IRECTION =";C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X)):GOTO8460
  365. 8450 PRINT"[150][196]IRECTION =";C1+(ABS(X)/ABS(A))
  366. 8460 PRINT"[196]ISTANCE =";SQR(X^2+A^2):PRINT:IFH8=1THEN1990
  367. 8480 NEXTI:GOTO1990
  368. 8500 IFB3<>0THENPRINT"[198]ROM[160][197]NTERPRISE TO[160][211]TARBASE:":W1=B4:X=B5:GOTO8120
  369. 8510 PRINT"[129] [205]R. [211]POCK REPORTS:[146]  [211]ENSORS[160]SHOW[160]NO[160]   [211]TARBASES[160]IN[160]THIS";
  370. 8520 PRINT" [209]UADRANT.":GOTO1990
  371. 8580 REM FIND EMPTY PLACE IN QUADRANT (FOR THINGS)
  372. 8590 R1=FNR(1):R2=FNR(1):A$="   ":Z1=R1:Z2=R2:GOSUB8830:IFZ3=0THEN8590
  373. 8600 RETURN
  374. 8660 REM INSERT IN STRING ARRAY FOR QUADRANT
  375. 8670 S8=INT(Z2-.5)*3+INT(Z1-.5)*24+1
  376. 8675 IFLEN(A$)<>3THENPRINT"[197][210][210][207][210]":STOP
  377. 8680 IFS8=1THENQ$=A$+RIGHT$(Q$,189):RETURN
  378. 8690 IFS8=190THENQ$=LEFT$(Q$,189)+A$:RETURN
  379. 8700 Q$=LEFT$(Q$,S8-1)+A$+RIGHT$(Q$,190-S8):RETURN
  380. 8780 REM PRINTS DEVICE NAME
  381. 8790 ONR1GOTO8792,8794,8796,8798,8800,8802,8804,8806
  382. 8792 G2$="[215]ARP [197]NGINES":RETURN
  383. 8794 G2$="[211]HORT-[210]ANGE [211]ENSORS":RETURN
  384. 8796 G2$="[204]ONG-[210]ANGE [211]ENSORS":RETURN
  385. 8798 G2$="[208]HASER [195]ONTROL":RETURN
  386. 8800 G2$="[208]HOTON [212]UBES":RETURN
  387. 8802 G2$="[196]AMAGE [195]ONTROL":RETURN
  388. 8804 G2$="[211]HIELD [195]ONTROL":RETURN
  389. 8806 G2$="[204]IBRARY-[195]OMPUTER":RETURN
  390. 8820 REM STRING COMPARISON IN QUADRANT LRIGHT$8820-
  391. 8830 Z1=INT(Z1+.5):Z2=INT(Z2+.5):S8=(Z2-1)*3+(Z1-1)*24+1:Z3=0
  392. 8890 IFMID$(Q$,S8,3)<>A$THENRETURN
  393. 8900 Z3=1:RETURN
  394. 9010 REM QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)
  395. 9020 REM CALL WITH G5=1 TO GET REGION NAME ONLY
  396. 9030 IFZ5<=4THENONZ4GOTO9040,9050,9060,9070,9080,9090,9100,9110
  397. 9035 GOTO9120
  398. 9040 G2$="[193]NTARES":GOTO9210
  399. 9050 G2$="[210]YGEL":GOTO9210
  400. 9060 G2$="[208]ROCYON":GOTO9210
  401. 9070 G2$="[214]EGA":GOTO9210
  402. 9080 G2$="[195]ANOPUS":GOTO9210
  403. 9090 G2$="[193]LTAIR":GOTO9210
  404. 9100 G2$="[211]AGITTARIUS":GOTO9210
  405. 9110 G2$="[208]OLLUX":GOTO9210
  406. 9120 ONZ4GOTO9130,9140,9150,9160,9170,9180,9190,9200
  407. 9130 G2$="[211]IRIUS":GOTO9210
  408. 9140 G2$="[196]ENEB":GOTO9210
  409. 9150 G2$="[195]APELLA":GOTO9210
  410. 9160 G2$="[194]ETELGEUSE":GOTO9210
  411. 9170 G2$="[193]LDEBARAN":GOTO9210
  412. 9180 G2$="[210]EGULUS":GOTO9210
  413. 9190 G2$="[193]RCTURUS":GOTO9210
  414. 9200 G2$="[211]PICA"
  415. 9210 IFG5<>1THENONZ5GOTO9230,9240,9250,9260,9230,9240,9250,9260
  416. 9220 RETURN
  417. 9230 G2$=G2$+" [201][146]":RETURN
  418. 9240 G2$=G2$+" [201][201][146]":RETURN
  419. 9250 G2$=G2$+" [201][201][201][146]":RETURN
  420. 9260 G2$=G2$+" [201][214][146]":RETURN
  421. 10050 POKEQK,0:PRINT"[158]DO[160]YOU[160]WANT[160]INSTRUCTIONS?":WAITQK,1:GETA$
  422. 10060 IFLEFT$(A$,1)<>"Y"THENRETURN
  423. 10090 PRINT"[150][147]   [201][206][211][212][210][213][195][212][201][207][206][211] [198][207][210] [211][212][193][210] [212][210][197][203]"
  424. 10110 PRINT"1. [154][215]HEN YOU[160]SEE [195][207][205][205][193][206][196]?[154] PRINTED, ENTER[160]A[160]LEGAL[160]COMMAND:"
  425. 10120 PRINT" [206][193][214] [211][210][211] [204][210][211] [208][200][193] [212][207][210] [211][200][197] [196][193][205] [195][207][205][154] OR [216][216][216][146]"
  426. 10130 PRINT"[150]2.[154] [201]F[160]YOU[160]TYPE[160]IN[160]AN[160]ILLEGAL[160]COMMAND,   YOU[160]WILL[160]SEE[160]THE[160]LIST."
  427. 10150 PRINT"[150]3.[154] [211]OME[160]COMMANDS[160]WILL REQUIRE[160]ENTRY OF  DATA. [206][193][214][154] ASKS[160]YOU[160]FOR";
  428. 10160 PRINT"[160][195][207][213][210][211][197] (1-9)?[154].   [201]F[160]YOU[160]ENTER[160]ILLEGAL[160]DATA, LIKE[160]A[160]NEGA-"
  429. 10170 PRINT"TIVE VALUE, THE[160]COMMAND[160]WILL[160]BE[160]ABORTED."
  430. 10180 PRINT"[150][212]HE[160]GALAXY[160]IS[160]DIVIDED[160]INTO 64 QUADRANTS.";
  431. 10190 PRINT"[197]ACH[160]QUADRANT[160]HAS 64 SECTORS.
  432. 10200 [153]"CONT(null)OUCLOSEWILLCLOSEBECLOSEASSIGNEDCLOSEACLOSESTARTINGCLOSEPOINT   SOMEWHERECLOSEINCLOSETHECLOSEGALAXY";
  433. 10210 [153]" TOCLOSEBEGINCLOSEACLOSETOURCLOSEOFCLOSEDUTYCLOSEASCLOSECOMMANDERCLOSEOFCLOSETHECLOSEVALNTERPRISE."
  434. 10220 [153]"DEF(null)OURCLOSEMISSIONCONT:  (null)OCLOSESEEKCLOSEANDCLOSEDESTROYCLOSETHE  FLEETCLOSEOFCLOSE(null)LINGON WARSHIPS";
  435. 10230 [153]" THATCLOSEARECLOSEMENA-CINGCLOSETHECLOSE(null)NITED ASCEDERATION (null)F (null)LANETS.ON"
  436. 10240 [151]QK,0:[146]QK,1:[161]A$
  437. 10250 [153]"LOAD(null)(null)(null) LEFT$ATN(null)VAL (null)LEFT$VAL ASC(null)(null)(null)(null)(null)RIGHT$(null)CHR$ LEN(null)(null)(null)ATN(null)STR$(null):"
  438. 10260 [153]"(null)ATN(null)  DEF(null)ATN(null)(null) VAL(null)CHR$RIGHT$(null)VAL LEN(null)(null)(null)(null)(null)(null)"
  439. 10270 [153]"CONTLENOURSECLOSEISCLOSEINCLOSEACLOSECIRCULAR    DEF 4  3  2"
  440. 10280 [153]"CONTVECTORCLOSEPATTERNCLOSEASCLOSESHOWN.DEF     * * *"
  441. 10290 [153]"CONTASCRACTIONALCLOSEVALUESCLOSEMAY BEDEF      ***"
  442. 10300 [153]"CONTUSED.  (null)HUS, 1.5 IS     DEF   5*******1"
  443. 10310 [153]"CONTMIDWAYCLOSEBETWEENCLOSE1 AND 2. DEF      ***"
  444. 10320 [153]"CONT(null)ALUESCLOSEMAYCLOSEAPPROACHCLOSE9,  DEF     * * *"
  445. 10330 [153]"CONTWHICHCLOSEISCLOSEITSELFCLOSEEQUAL   DEF    6  7  8"
  446. 10340 [153]"CONTTOCLOSE1."
  447. 10350 [153]"(null)NECLOSEDEF(null)ATN(null)(null) ASCATNLEN(null)(null)(null)CONT ISCLOSETHECLOSESIZECLOSEOFCLOSEONECLOSEQUAD-";
  448. 10360 [153]"RANT.  (null)O MOVECLOSEFROMCLOSEQUADRANTCLOSE6,5 TO 5,5"
  449. 10370 [153]"YOUCLOSEWOULDCLOSEUSECLOSEDEFLEN(null)(null)(null)(null)VAL 3, (null)ATN(null)(null) ASCATNLEN(null)(null)(null) 1."
  450. 10540 [153]"(null)(null)(null)  DEF(null)LEFT$(null)(null)(null)-(null)ATN(null)CHR$VAL (null)VAL(null)(null)(null)(null) (null)LENATN(null)"
  451. 10550 [153]"CONT(null)HOWSCLOSEACLOSESCANCLOSEOFCLOSEYOURCLOSEPRESENTCLOSEQUADRANT."
  452. 10560 [153]"DEF<*>CONT = VAL(null)(null)VAL(null)(null)(null)RIGHT$(null)VAL POSITION":[153]"DEF+(null)+ CONT= (null)LINGONCLOSEBATTLECLOSECRUISER"
  453. 10590 [153]"DEF>!<CONT = ASCEDERATIONCLOSE(null)TARBASE (REFUEL HERE)
  454. 10600 PRINT" [150]*[154]  = [211]TAR"
  455. 10610 PRINT"[193][160]CONDENSED STATUS[160]REPORT[160]WILL[160]ALSO BE  DISPLAYED.[145]";
  456. 10620 POKEQK,0:WAITQK,1:GETA$
  457. 10640 PRINT"[147][204][210][211]  [150][204][207][206][199]-[210][193][206][199][197] [211][197][206][211][207][210] [211][195][193][206]"
  458. 10650 PRINT"[154][196]ISPLAYS[160]CONDITIONS[160]IN[160]ALL[160]THE ADJACENT"
  459. 10660 PRINT"QUADRANTS[160]TO[160]THE[160][197][206][212][197][210][208][210][201][211][197], WHICH[160]IS"
  460. 10670 PRINT"SHOWN[160]IN[160]THE[160]CENTRE[160]OF[160]THE[160]SCAN."
  461. 10680 PRINT"[196]ISPLAY--[150]207[154]--MEANS--[150]2[154]--[203][204][201][206][199][207][206][211]"
  462. 10690 PRINTTAB(19)"--[150]0[154]--[211]TARBASES":PRINTTAB(19)"--[150]7[154]--[211]TARS"
  463. 10700 PRINT"[208][200][193]  [150][208][200][193][211][197][210] [195][207][206][212][210][207][204]"
  464. 10710 PRINT"[154][193]LLOWS[160]YOU[160]TO[160]DESTROY[160]THE[160][203][204][201][206][199][207][206] BATTLECRUISERS, BY[160]ZAPPING[160]THEM";
  465. 10720 PRINT" WITH[160]SUITABLY[160]LARGE[160]UNITS[160]OF[160]ENERGY[160]TO[160]DEPLETE[160]THEIR[160] SHIELD ";
  466. 10730 PRINT"POWER.  [210]EMEMBER[160]THAT[160][203][204][201][206][199][207][206][211]   HAVE[160]PHASERS, TOO!"
  467. 10780 PRINT"[212][207][210]  [150][208][200][207][212][207][206] [212][207][210][208][197][196][207] [195][207][206][212][210][207][204]"
  468. 10790 PRINT"[154][212]ORPEDO[160]COURSE[160]IS[160]THE[160]SAME[160]AS[160]FOR[160]WARP ";:PRINT"[160]ENGINE[160]CONTROL.";
  469. 10800 PRINT"  [201]F[160]YOU[160]HIT[160]THE[160][203][204][201][206][199][207][206] VESSEL, IT[160]IS DESTROYED[160]AND[160]CAN'T[160]";
  470. 10810 PRINT"RETURNFIRE.  [201]F[160]YOU[160]MISS, YOU[160]ARE[160]SUBJECT[160]TO  HIS[160]PHASER[160]FIRE. ";
  471. 10820 PRINT"[201]N[160]EITHER[160]CASE, YOU[160]ARESUBJECT[160]TO[160]PHASER[160]FIRE[160]FROM[160]ALL[160]OTHER[160]"
  472. 10830 PRINT"[203][204][201][206][199][207][206][211] IN[160]THE[160]QUADRANT.  [212]HE[160]LIBRARY- COMPUTER ";
  473. 10840 PRINT"CAN[160]COMPUTE[160]THE[160]TRAJECTORY[160]FOR[160]YOU.[145][145]"
  474. 10850 POKEQK,0:WAITQK,1:GETA$
  475. 10860 PRINT"[147][211][200][197]  [150][211][200][201][197][204][196] [195][207][206][212][210][207][204]"
  476. 10870 PRINT"[154][196]EFINES[160]THE[160]NUMBER[160]OF[160]ENERGY[160]UNITS[160]TO[160]BEASSIGNED[160]TO[160]THE[160]SHIELDS.";
  477. 10880 PRINT" [197]NERGY[160]IS[160]DRAWNFROM[160]THE[160]TOTAL[160]SHIP'S ENERGY.  [212]HUS, THE[211][212][193][212][213][211] ";
  478. 10890 PRINT"[196][201][211][208][204][193][217] INCLUDES[160]SHIELD[160]ENERGY."
  479. 10900 PRINT"[196][193][205]  [150][196][193][205][193][199][197] [195][207][206][212][210][207][204] [210][197][208][207][210][212]"
  480. 10910 PRINT"[154][199]IVES[160]THE[160]STATE[160]OF[160]REPAIR[160]OF[160]ALL[160]DEVICES[193] NEGATIVE[160]VALUE[160]DENOTES";
  481. 10920 PRINT" TEMPORARY[160]DAM- AGE[160]TO[160]THAT[160]DEVICE."
  482. 10930 POKEQK,0:WAITQK,1:GETA$
  483. 10940 PRINT"[147][195][207][205]  [150][204][201][194][210][193][210][217]-[195][207][205][208][213][212][197][210]"
  484. 10950 PRINT"[207]PTION-0-[195]UMULATIVE[160][199]ALACTIC[160][210]ECORD[154]"
  485. 10960 PRINTTAB(9)"[211]HOWS[160]MEMORY[160]OF[160]THE RESULTS[160]OF"
  486. 10970 PRINTTAB(9)"PREVIOUS[160]SHORT[160]&[160]LONG[160]RANGE":PRINTTAB(9)"SENSOR[160]SCANS."
  487. 10980 PRINT"[150][207]PTION-1-[211]TATUS [210]EPORT[154]  [211]HOWS THE[160]NUMBER"
  488. 10990 PRINTTAB(9)"[145]OF[160][203]LINGONS, [211]TARDATES, & [211]TAR-"
  489. 11000 PRINTTAB(9)"[145]BASES[160]REMAINING."
  490. 11010 PRINT"[150][207]PTION-2-[212]ORPEDO [210]ANGE [198]INDER[154]  [199]IVES"
  491. 11015 PRINTTAB(9)"DIRECTION[160]&[160]DISTANCE[160]TO ENEMY"
  492. 11020 PRINTTAB(9)"SHIPS IN[160]THE[160]QUADRANT."
  493. 11030 PRINT"[150][207]PTION-3-[211]TARBASE[160][206]AVIGATION[160][196]ATA[154]  [199]IVES"
  494. 11040 PRINTTAB(9)"[145]DISTANCE[160]& DIRECTION[160]TO[160]ANY":PRINTTAB(9)"[211]TARBASE IN[160]YOUR";
  495. 11050 PRINT" QUADRANT.":PRINT"[150][207]PTION-4-[196]IRECTION/[196]ISTANCE [195]ALCULATOR[154]"
  496. 11060 PRINTTAB(9)"[193]LLOWS[160]ENTRY[160]OF[160]CO-ORDINATES"
  497. 11070 PRINTTAB(9)"TO CALCULATE[160]NEW[160]POSITION."
  498. 11080 PRINT"[150][207]PTION-5-[199]ALACTIC[160][210]EGION/[206]AME[160][205]AP[154]"
  499. 11090 PRINTTAB(9)"[208]RINTS[160]NAMES OF THE[160]16 MAJOR":PRINTTAB(9)"REGIONS[160]USED[160]IN[160]THE[160]GAME."
  500. 11100 PRINT"[216][216][216]  [150][210][197][211][201][199][206] [195][207][205][205][193][206][196][154]":PRINT"[212]O GIVE UP AT[160]ANY[160]TIME";
  501. 11110 POKEQK,0:WAITQK,1:GETA$
  502. 11220 PRINT"[147][142]":RETURN
  503.